Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next

Re How tro read Symphony spreadsheet with LS

Dim objServiceManager As Variant
Dim args()
' Set args(0) = createStruct( objServiceManager,"com.sun.star.beans.PropertyValue" )
' args(0).name="Hidden"
' args(0).value=True
xlFilename = Inputbox$(msg, "Symphony Spreadsheet Import" , "file:///C:/cables.ods")

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objDocument = objDesktop.loadComponentFromURL(xlFilename, "_blank", 0, args)
Set objSheet = objDocument.getSheets().getByIndex(0)

iRow = 1
While objSheet.getCellByPosition(0,iRow).getString() <> ""
For iCol = 0 To 9
cellValue = objSheet.getCellByPosition(iCol,iRow).getString()
Next iCol
iRow = iRow + 1
Wend

objDocument.close(True)
' objDocument.dispose


Feedback response number WEBB8HTCXH created by ~Maria Bubboositerli on 06/14/2011

How tro read Symphony spreadsheet w... (~Maria Bubboosi... 19.Apr.11)
. . you can use java (~James Nimjipyl... 20.Apr.11)
. . . . you can use java (~Maria Bubboosi... 20.Apr.11)
. . Re How tro read Symphony spreadshee... (~Maria Bubboosi... 14.Jun.11)




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS